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(57) Abstract 

A defined unit identifier which is an image necessary for a software to be 
produced is determined. Words existing in the defined unit identifier are picked up 
and a processing routine diagram, in which all pallets necessary for the software are 
arranged along the flowchart, is produced based on the defined unit identifier. Then a 
necessary file is determined in accordance with the picked-up words and the 
produced processing routine diagram. Then first basic logics for performing the 
image editing or the file editing, second basic logics for determining a processing 
routine and third basic logics for updating the file are produced for all the picked-up 
words. Then three types of pallets connecting the first, second and third basic logics 
are produced for every image and pallet functions which execute the basic logics in 
the respective pallets autonomously with significance are produced. An image based 
upon the pallet function concerning the first basic logics is transmitted and the 
picture is received and the pallet function concerning the second basic logics is 
executed. This process is one of a plurality of process routes. The above mentioned 
pallet functions are incorporated into a pallet chain function which has a structure for 
determining one processing routine among a plurality of processing routines 
including the processing routine where the pallet function concerning the third logics 
is executed in accordance with the result of execution of the pallet function 
concerning the second logics. This software does not require to produce basic logics 
for all the words and, if basic logics are produced for some of the words, the 
operation is performed within the range. 
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COLHDCC ffi»tiiT?I^SS: 4 •) 

COLHDCC «E«E5J5 ') 

COLHDCC ffimiiST^- K5 ') 

COLHDCC 51^:3?* 5 •) 

COLHDCC ttlS5 ') 

COLHDCC ®St^SIK^>5 ') 

COLHDCC ffi»li§rffitSSS: 5 ') 

COLHDCC ffilSii^§I^« 5 •) 

COLHDCC So^?ISSi(^lt •) 
COLHDCC e$*Silit,^« 1 I ') 

COLHDCC ^mm^j^mm mi ') 
COLHDCC &mm.^&^ 1-1 ') 

COLHDCC &mm^&Bfi 2-1 ') 

COLHDCC &mim^&^ 3-l •) 
COLHDCC i^nmms^m^ i ') 
COLHDCC mi^m^m^^ i ') 

COLHDCC ®**Sm*.TE L 1 ') 
COLHDCC S$^iim,^FAX 1 ') 
COLHDC( • im.-^fil^iSo^lij 1 • ) 

COLHDCC \h^.^Mmo- K 1 •) 

COLHDCC K 1 ) 

COLHDCC ©**fi|if,^=»- K 1 ') 
COLHDCC it .^.SiJif'J^JSB 1 •) 

COLHDCC &^^.<^mmfm i •) 

COLHDCC igSSWSl •) 

COLHDCC ^m^e.^ i ') 

COLHDCC K^I^SfNO 1 1 ') 
COLHDCC SZ?!i§ftNO 1 ") 

COLHDCC m^^3m^&^2 ') 

COLHDCC m^^Mm^- K2 •) 

COLHDCC m^!^Mm=i- K2 •) 

COLHDCC e$*SI©.'^:3 - K2 ') 

COLHDCC ii.^.SI§^^B 2 ') 

COLHDCC mnm.^.m^'^Mz •) 

COLHDCC li!S!|y|S 2 ') 
COLHDC( ' ^S6]K^2 ) 
COLHDCC iR^liKNO 2 1 *) 
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PWl V2R3M0 931105 S EU 



7 r 'f ^1/ . . 


.... CTNOIO/QODSSRC 




.... K052BP02 




R»...f... 1 . 


2 3 




A 


KEU463 


2S 0 


A 


KE9601 


5P 0 


A 


KE6103 


9A 


A 


KE6153 


9A 


A 


KE6g03 


9k 


A 


KE7353 


8S 0 


A 


KE7403 


8S 0 


A 


KE7453 


lA 


A 


KBS571 


lA 


A 


KEU464 


8S 0 


A 


KEU465 


2S 0 


A 


KE9851 


5P 0 


A 


KE7504 


9A 


A 


KE7554 


9A 


A 


KE7604 


9A 


A 


KE8054 


8$ 0 


A 


KE8104 


8S 0 


A 


KE8154 


lA 


A 


KES572 


lA 


A 


KEU466 


8S 0 


A 


KEU467 


2S 0 


A 


KEAlOl 


5P 0 


A 


KE8205 


gA 


A 


KE8255 


9A 


A 


KE8305 


9A 


A 


KE8755 


8S 0 


A 


KE8805 


8S 0 


A 


KE8855 


lA 


A 


KES573 


lA 


A 


KEU468 


8S 0 


A 


KEU469 


2S 0 


A 


KE4005 


7P 0 


A 


KE1124 


13P 3 


A 


KEA651 


13P 3 


A 


KEA701 


4S 2 


A 


KEA751 


4S 2 


A 


KEA801 


13P 3 


A 


KEU472 


9P 0 


A 


KEA85I 


AC O 

4S d 


A 


KEA901 


4S 2 


A 


KEA951 


13P 3 


A 


KEII473 


9P 0 


A 


KEBOOl 


4S 2 


A 


KEB051 


4S 2 


A 


KEB701 


13P 3 


A 


KE0478 


9P 0 


A 


KEB751 


4S 2 


A 


KEB80I 


4S 2 


A 


KECOOl 


9P 0 


A 


KEC151 


5S 2 


A 


KE0373 


3S 0 


A 


KEC201 


9P 0 


A 


KEC251 


9P 0 



+... 5 ...+... 6 ...K.. 7 
COLHDGC K§l2?ffN0 2 ') 

COLHDGC K 3 ') 

COLHDG( ' Hm-kmBlr n - K 3 ' ) 

COLHDGC K3 •) 

COLHDGC S.'feSim^ SB 3 ') 

COLHDGC ft*^lP.^SI«^S 3 ') 

COLHDGC *l!S*iJ^3 ') 

COLHDGC ^S^E5}3 ') 

COLHDGC IK?l«?NO 3 1 ") 

COLHDGC m?l«^?TNO 3 ') 

COLHDGC 4 ') 

COLHDGC aj^.^liiT^- K4 ') 

COLHDG( ' 3\m,^mm='- K 4 ' ) 

COLHDGC K4 ') 

COLHDGC m.^mm^ma 4 ') 
COLHDGC ma^^s^mmf^ 4 •) 

COLHDGC SK*4ffi 4 •) 
COLHDGC ^5Ef]E^>4 ') 
COLHDGC BS?lz5N0 4 1 ') 
COLHDGC BZ?|-^FffNO 4 ') 
COLHDGC ii|«.^iiJ«ffin^$!c 5 ') 
COLHDGC ai56.^1i^:3- K5 ') 

coLHDG ( ' mm^Mm ^ - k 5 • ) 

COLHDGC mmW<^.=J- K5 •) 

COLHDGC m.^Mmf^B 5 •) 

COLHDGC mii^m.^Mm=f-^ 5 ') 

COLHDGC 5 ') 

COLHDGC ^5eejE^)-5 ') 

COLHDGC BJ^IsSFNO 5 1 ') 

COLHDGC l^?l^if^TNO 5 •) 

COLHDG ( ' iSiS^^Rietlt ') 

COLHDGC ' mm ') 
COLHDGC ^ikmm ') 

COLHDGC mm^mWm\m ') 

COLHDGC Sait^S'JSl?!* *) 

COLHDGC ttA*<ffi ') 

COLHDGC ttA#liiSil?I^Sl ') 

COLHDGC ti:A^mm^\m ') 

COLHDGC ttA^gilfl?!'^ •) 
COLHDGC 5r±mffi ') 
COLHDGC ^±*fii5SiI?l^tl ') 

COLHDGC ^±mmm^\m ') 

COLHDGC 5^±#gi|S'l?|£^ ") 
COLHDG( ' fftiS^ffi ') 
COLHDGC KlU#(itd?l^«l ') 

COLHDGC mmmmm^im •) 
COLHDGC mihmm^\^ ') 

COLHDG ( ' ^±ttAfflfiJ ') 
COLHDGC ^±ttAtEfJ* ') 

coLHDC( 'mm ■) 

coLHDG( ■ fR^m&M^m^tR *) 

COLHDGC ^^m&s^mm^i^ ') 
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931105 





.... CTNOIO/ODDSSRC 




.... K052BP02 






2 , . . f. . . 3 , 


1 

. . . T. , . 


A 


KES002 


AD A 


A 


KE4028 


OC A 


A 


KE4029 


OO A 


A 


KEU452 


OC A 


ft 

A 


KE4030 


OC A 
00 0 


A 


KBU453 


OC A 

2o 0 


A 


KE403I 


OC A 

oS 0 


A 


KEU454 


OC A 


A 


KB4032 


OC A 


A 


KEU455 


OC A 


A 


tf^ n J AAA 

KE4033 


OC A 

oS 0 


A 


KE4034 


OC A 

00 U 


A 


KB4035 


OC A 

00 0 


A 


KEU456 


OC A 

2o 0 


A 


f/ n A AAA 

KE4036 


OC A 

00 0 


ft 

A 


KEU457 


OO A 
^0 0 


A 


KEU289 


OC A 

8o U 


ft 

A 


1/ PIT J CO 

KEU453 


OC A 

Zo U 


ft 

A 


KEU290 


00 U 


A 


KEU459 


OC A 

CO U 


A 


KES563 


QC A 

00 U 


A 


l/D t AC*7 


QC A 
OO U 


A 


T/OIIAO/; 

Kcu9ob 


OC A 


A 


KEU937 


QC A 
OO U 


A 


KEU900 


OC A 


A 




7A 
t A 


A 


VD 1 C71 

Kbiu/i 


OA 


A 




1 A 


A 
n 




4 OA 


A 




QA 


A 

A 


nc 1 vul 


9A 


A 

A 


KET032 


9A 


A 


KET033 


9A 


A 


KET034 


9A 


A 


KBT035 


9A 


A 


KET036 


9A 


A 


KET037 


9A 


A 


KET038 


9A 


A 


KET039 


9A 


A 


KBV320 


lA 


A 


KEB321 


lA 


A 


KE1771 


7A 


A* 






A 


K KE4001 




A 


K KB 1879 




A» 







4 ., 



. +. . . 5 . . 

COLHDGC 
COLHDCC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDCC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDCC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDG( ' 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDCC 
COLHDGC 
COLHDGC 
COLHDCC 
COLHDGC 
COLHDCC 
COLHDGC 
COLHDGC 



. 6 ...+... 7 ...t. 

a«No ;) 

S?iNO ) 

Sft?TNO ') 

5li£N0 •) 

5IZt'fTN0 •) 

ttANO •) 

f±A'n-NO •) 

aj^SfNO ') 

tii^ntio ') 

3tfAN0 ) 

A&NO •) 

5?±No ;) 

^±'fTNO ) 

^±&s,^mmno •) 

mnno . ) 

iS^SNO ) 

afi3-K ) 

3CtA»®K^> ) 

^(iA ) 

^flSB ) 

=fmc ) 

^tUD ) 

^fllE ) 

^<«F .1 

§«iii#ssa§±9 •) 

gliii#ifJljiST 9 •) 

iSo°attA$fe3- K • ) 

EOSE^> ) 

=fms.^2 ) 



t * * m i± ^ <^ ^ ^ *♦* 
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LP0004-SEC SECTION. 

END-IF. . » 

* L01540 0 P C D (LP0004) ^ 

ELSE 
» OPEN K213DL0f 

' OPEN INPUT K213DL01 
IF FLSTSl NOT = ZERO^^ 
MOVE 8800 TO MSG-NO^ 
MOVE ^1 TO ERR-INF 
GO TO MAIN-END 

^''^MOVE "1" TO K213DL01-0PBN 
END-IF 
END-IF 

* MOVE A01540 OF KH20IE(PS) TO W01540 

J§?§40 ?S K213DL01-REC 
KEY 

iSv^'-'lOo'^^TO SGLCODB 

MOVE sRd792 OF K213DL01-REC TO R-W01560 

END-IF 

E85E°''0UT8AfA"?0 AD1560 OF KH201E(PS) 

^''^^OVE "r TO ERR-INF 
MOVE 2001 



MOVE B"l' 
MOVE SPACE 
END-iF 
END-IF. 



0 MSG-NO 
0 A 
0 A 



0 A01540-C OF W02p4(PS) 
01560 0F-KH201E(PS) 



If ERR-INF NOT = X„«w„.> 



Sf CSR-LOCK of W0204(PS)_=„"A12590" 

MOV" ' 
MOV 
END-IF 



MOVE 3 TO ROUTE-NO 

iSoVB ^KH600Q" TO C-CAMBN-NO 



SI ^KH600Q" ?8 E°SirBli°NO 
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W 0 3 : affiH^ 

W03KH201E 

ttittttttifittt*** -r — ^'CDtei6 

» KH201E ^&xti im.m) t 

IF GAMEN-NO OF CRTL-AREA - "KH201E" 

D DISPLAY "KH2Q1E LAYT-FLC=: LAYH-FLG 
DISPLAY "KH201B L^YJ-FLG=" LAYT-FLC 

Y^-FLG^, = 1 YD1179KH201E1E 
A01540 OF KH201B(STG1) 
TO KD1179 OF EF-ARBA 

YD1839KH201E1E 
07580 OF KH201B(STG1) 
~ KD1839 OF BP-AREA 

- K YD1847KH201E1B 
A12590 OF KH201E(STG1) 
TO KD1847 OF BF-ARBA 
? NO , , YD1844KH201E1E 

A07560 OP KH201B(STG1) IS, NUMERIC 
A07560 OF KH201E(STG1) 
TO KD1844 OF EP-AREA 



D 



***** 




***** 52? ffl^^- 
MOVE / 



MOVE 



960424***** 
*****I 
***** 
***** 

*****ENp-IF 

960513***** 4mN0 YDI844KH201B1E 
*****ir A07560 OF KH201E(STG1) IS NUMERIC 
***** MOVE A07560 OF KH20IE(STG1) 
***** TO KD4029 OF EF-AREA 

*****EDN-IF 

960513***** MfSNO , , YD4028KH201E1B 

*»***ir 1D4800 OP KH201E(STG1) IS NUMERIC 
»»»** MOVE A04800 OP RH201E(STG1) 
***** TO KD4028 OF EP-ARBA 

*****END-IF 



***** 



m 



TO 

MOVE A043 



***** 15 



]VE 




***** 



***** 



***** 



\n 1 

*0V 



E 



* 2 
OVE 



YD1854KH201E1E 

OF KH20IE(STG1) 
■ 4 OF EF-AREA 

YD1857KH201B1E 

OF KH201E(STG1 
. ,KD1857 OF EF-AREA 
.a^^gfe , YD4044KH201E1E 
AUSQCTOF KH201E(STG1) 
TO KD4044 OF EF-ARBA 

YD1786KH201E1E 
A17860 OF KH201E(STC1) 
TO KD1786 OF EF-AREA 

YD1787KH201E1E 
A17870 OF KH201E{STG1) 
,^ TO, KD1787 OP EF-ARBA 
5J^B!?|IN0 , YD4037KH201E1B 

MOVE AU2d80 OF KH201E(STG1) 
TO KD4037 OF EF-ARBA 
***** , YD1412KH201E1B 

MOVE A14130 OF KH201E(STG1) 
, , ^ TO KD1412 OP EF-ARBA 
M**»ffl^*rj-K YD1084KH20IE1E 
Iffvf A10840 OP KH201E(STG1) 
JQ^Kpip84 OP BP-AREA 
***** iiT--i-m:^%'^ YDS568KH201E1E 
MOVE AUflO OF KH201E(STG1) 
TO KDS568 OF EF-AREA 

END-IF 

ttUM** ************ *****Mt*** ***************************** 

IF LAYT-FLG = "I" 
PERFORM VARYING SI FROM 1 BY 1 
UNTIL SI > 6 
***** LASTIDX CONTROL 

MOVE SI TO TI 
***** - K 1 YB5501KH201E1B 

***** If AU210 OP KH201B(STGI) NOT = 1 



MO 



TEXT 
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WO 3 : S&SS^ ^Q3gj,2 

t (HDR) * 

0C0717!!Jn,P*TfBN"?ttfJ AND KD»36oWaRBA KOT • T 

IF TKBN = CNS-EF , ,„ 

IF KE5001 OF EF-AREA(PI) S NUMER C 
AND KD1857 OF EF-ARBA,„.^ S NUMER C 
AND KEC201 OF EF-ARBA(Pl) IS NUMERIC 

MOVE ^ZBRO TO KD1857 OP EF-AREA 
END-IF 

IF KB5001 OF BP-AREA(PI) NOT = ZERO 

COMPOTE DK1857 OF EP-AREA = KD1857 OF EF-AREA^ ^ 

^ l^g^^oi OF EF-AREA(PI) 
ON SIZE ERROR . „„ „ 

MOVE ALL "9 TO KD1857 OF EF-ARBA 
IF ERR-lNf = SPACE 



MOVE 'r 
MOVE 3019 TO 
END-IF 
END-COMPOTE 

END-IF 
END-IF 

IF KD1858 OF EF-AREA 
AND KE5001 OF EF-AREA(PI) 
INP KEC251 OF EF-AREA(PI) 



ERR-INP 
MSG-NO 



L18580 



***** 



E5> NOT = "1" 
F KDU360 OF EF-AREA NOT 



IS 
IS 
IS 



NUMERIC 
NUMERIC 
NUMERIC 

"r 



ZERO TO KD1858 OF EF-AREA 



IF PI = 1 

MOVE 
END-IF 

IF KE5001 OF EF-AREA(PI) NOT - ZERO 
COMPUTE KD1858 OF EF-AREA 

= KDI858 OF EF-AREA,„,^ 
+ KEC251 OF EF-AREA(PI) 
ON SIZE ERROR 



***** m^m 



END 
END-IF 
ND-.IF 



F ^DU360 OF EF-AREA = "T 

MOVE KD1099 OF EF-AREA 

TO KDI858 OF EP-ARBA 
END-IF 
END-IF 
END-IF. 

*»»** ^&mm^n^^ lissbo 

IF TKBN = CNS-EF 
IF KE5001 OF EF-AREA(PI) IS NUMERIC 
AND KD1856 OF EF-AREA IS NUMERIC 
AND KE1124 OF EF-AREA(PI) IS NUMERIC 
IF PI = 1 

HOVE ZERO TO KD1856 OF EF-AREA 

END-IF 

IF KE5001 OF EF-AREA(PI) NOT = ZERO„^^ 
COMPUTE KD1856 OF EF-AREA = KD1856 
+ KE1124 OF EF-AREA(PI) * KE5001 
ON SIZE ERROR 
MOVE ALL ^9" TO 



MOVE ALL 
IF ERR 

MOVE 

MOVE 
END-IF 
•COMPUTE 



9' TO KD1858 OF EF-AREA 
INF = SPACE 
"r TO ERR-INF 
3019 TO MSG-NO 



OF 
OF 



EF- 
EF- 



AREA 
AREA(Pl) 



KD1856 OF EF-AREA 
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END-IP 
END-COMPUTE 
END-IF 
ENO-IP 
EMD-IF 

***** rf^mft^Si L10990 



IF KDU360 OF EF-AREA NOT = 
IF KD1099 OF EF-AREA,„,^ 
AND KE5001 OF BF-ARBAjp j 



S NUMERIC 
S 
S 



AND KBC251 OF EF-ARBA( 

MOVE ^ZBRO TO KD1099 OF BF-ARBA 

PNn- 1 P 

IF KE5001 OF EF-AREA(FI) NOT = ZERO 
COMPUTE KD1099 OF EF-AREA 
= KD1099 OF EF-AREA 
+ KEC251 OF EF-ARBA(PI) 

\q\V 111% TO KD1099 OP EF-AREA 
IF ERR-lNf = SPACE^ ,„„ 
MOVE 1 TO BRR-INF 
MOVE 3019 TO MSG-NO 
BND-IF 
END-COMPUTE 
END-IF 
END-IF 
END-IF 
END-IF 

*****i?^W^!8s-EP 

IP KD1854 OF EF-AREA IS NUMERIC 
AND KD185T OP EF-AREA S NUMBR C 
AND KD1099 OF EF-AREA IS NUMERIC ^„ ^^^^ 
COMPUTE KD1854 OF EF-AREA = KD1857 OF EF-AREA 

%0n TO KD1854 OF BP-AREA 

IF ERR-INF = SPACE 
MOVE "1" TO ERR-INF 
MOVE 3019 TO MSG-NO 
END- IP 
END-COMPUTE 
END-IF 
END-I F 

***** I2?l^lt#«S?^MSiiA L18550 
IF TkBN - CNS-EP 

IF KD1855 OF EF-AREA IS NUMERIC 
AND KD1854 OF BF-AREA S NUMER C 
AND WI0903 IS NUMERJC 

IF (KS0901 OF WBF-AREA = "l") 
IP KDI854 OF EP-ARBA^>= ZERO 
COMPUTE KD1855 OF EF-ARBA . , „ ^ 

= KD1854 OF EF-ARBA » (1 + W10903) + 0.5 

^\on ALL°"9- TO KD1855 OF EF-ARBA 
IF ERR-INF = SPACE 
MOVE "1" TO ERR-INF 
MOVE 3019 TO MSG-NO 
END-IF 
END-COMPUTE 
ELSE 

COMPUTE^ KD1855 OF EF-AREA ^ ^ ^^^^^3^ _ 

°^MOVp ALL°^9" TO KD1855 IP EF-AREA 
IF ERR-INF = SPACE 
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w 0 4 : 




nmmm 1 if (x-^^i^) 




Y17990 SPn X 


— * 

—t 


Y04360 ^it^«g 






Y04360-SEC SECTION. 
Y04360-START. 

& llW-lo rw520 <PS2), 
MOVE ZERO TO 

ELSE 

M09E 
TO 

END-IP 
END-IF 
END-IF. 
Y04360-EXIT. 
EXIT. 



= "KH201E" 
PS2) = 1 
PS?) = 12 
a64360 of KH201E(PS1) 



KD185T OP W03-HD1R -. 
IVE KD185T OP W03-HD1.. 
A04360 OP KH201E(PS1) 



.. IS NUMERIC 
03-HDlR 



w 0 4 fSsmm^ 



L04360 



rt 



L04360-SEC SECTION. 

MOVe'^^ZERO to WK-KINCAKU 



PERFORM 

IF 



VARY 
UN 
A083 



NG PJ FROM 1 
IL PJ > 6 

1 OF KH201E(PS1 PJ 

AND A09221 OF KH201E(PSI 
AND A09221 OF KH201E^PS1 
AND A10791 OF KH201 
AND A10791 OF KH201 



BY 1 



PJ 

(PSl PJ 

(psi pj! 



not = SPACE 
IS NUMERIC 
NOT = ZERO 
IS NUMERIC 
NOT = ZERO 



AND Al§721 OF KH201E^PS1 PJj 



IS NUMERIC 
NOT = ZERO 



_ _-.i(F-. 

AND A16721 OF KH201B(PSl 

COMPUTE, 5j|:jj||jOAKU ^ pj, 

END-IF 

Mo5e"wK-K?NGAKU to A04360 OF KH201E(PS1). 
L04360-EXIT. 
EXIT. 
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-fbL^to-c. OS • ? hvw • y-A • mm • mmuf'M^r^t^-rmF^i-^^ 
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n ^ (o m m 

5 1 
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2 (ommwimRu^y r -< ^^Mif 5 n s <D^mkmh ^^-t^m i t . 

SSEII3(7)SJ6lfeStcM-t-5lg2(7;)^^c^lin*'>''j:< t h 1 ocD^tS^itS 
5. *^i-'<^®®^^^^^^i:. 

Pi®i®St/^(t^7^/HiS^^T9^1(75Sje^S (W0 4/^Uyh) ^^Ib 

5 2 
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ff!imm^(om-^m^izm^^^ yr-c^i^'^m^n^^stD&m^m. (wo3/^ 
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11 



101 

^ 



102 




103 



S)SMtt^cDit5im^l04 



105 



106 



107 



108 
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12 3 4 5 6 7 8 

1 2Si567B901 2345678901 2345678901 2345678901 234567B901 2345678901 234567B901 234567890 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



KH211E 



0000000000000000000000 
88 000000000000000000000000 
BBB8BB8BB 0000000000000000000000000000000000 
8BB6BB6B6 0000000000000000000000000000000000 
BBBBBBB 0000000000000000000000 eg|Jg;±No. 



DO 00 OD TT IT TT 
00000000 
999999 
999999 
B 00000000 
BBBBBBBBBBBB6B66B6BB 



66 



66 



66 



66 



B6BBBBBBBB88 9999. 99 
BB86BBBBBB666B66BBBBBB6BBB 
BB6BBBBBBBG8 9999. 99 



56 



BBBBBBBBB8BBBB6B6B8BBB86 6B6BBBBBBBBBBBBBBBBBBBBB TEL BB6BB86BBBBB 



999.999,999- 99.999.999 666.666.666- 

00000000000000000000000 
999. 999. 999- 99. 999. 999 66a 666. 666- 

00000000000000000000000 
999. 999. 999- 99. 999. 999 666. 666. 666- 

00000000000000000000000 
999 999. 999- 99. 999. 999 66a 666. 666- 

00000000000000000000000 
999 999. 999- 99, 999. 999 666. 666. 666- 
00000000000000000000000 
6. 66a 66a 666- 
a 66a 666, 666- 



BBB8BBBBBB8B 9999. 99 
66BB8B6BBB8BBBBBBBB8BBBBBB 
8BBBBB8BB66B 9999. 99 



BBBBBB8BBBB& 9999. 99 
BBBBBBSBBBSBBBBBBBBBBBBBBB 

6. 666. 66a 666- 
a666. 66a 666- 
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IF KD1099 OF EF-AREA=2ER0 

PERFORM VARYING PI FROM 1 BY 1 
UNTIL PI > 6 
IF TKBN = CNS-EF 



AND KE5p01 OF EF-AREA(PI) NOT = ZERO 
AND KDU360 OF EF-AREA NOT = "r 

IFKE0251-F OF EF-AREA(PI) =1 



COMPUTE KD1099 OF EF-AREA — 
= KD1099 OF EF-AREA 
+ KEC251 OF EF-AREA(PI) 
ON SIZE NOT ERROR 

MOVE 1 TO KD1099-F 
ON SIZE ERROR 

END-COMPUTE 
ELSE 

PERFORM "RESTART-PAL" 
END-IF 
END-IF 
END-PERFORM 
END-IF 
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